home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / graphics / circuit_macros / examples / ex2.m4 < prev    next >
Text File  |  1994-03-13  |  1KB  |  35 lines
  1. .PS
  2. define(`elen_',`dimen_')
  3. linewid = 0.85
  4.  
  5. Ct:dot
  6.    Point_(-60); capacitor; {"$C_3$" at last line.c + vec_(0.13,0.13)}
  7. Cr:dot
  8.    left_; capacitor; llabel(C_2,,)
  9. Cl:dot
  10.    capacitor(from Ct to Cl); {"$C_1$" at last line.c + vec_(-0.13,0.13)}
  11.  
  12. T:dot(at Ct+(0,elen_))
  13.    inductor(from T to Ct); {"$L_1$" at last line.c + vec_(0.12,-0.07)}
  14.  
  15.    Point_(-30); inductor(from Cr to Cr+vec_(elen_,0))
  16.       {"$L_3$" at last line.c + vec_(0,-0.07)}
  17. R:dot
  18. L:dot( at (Cl-(Cos(30)*(elen_),0),R) )
  19.  
  20.    inductor(from L to Cl); {"$L_2$" at last line.c + vec_(0,-0.10)}
  21.  
  22.    right_; resistor(from L to R); rlabel(,R_2,)
  23.  
  24.    resistor(from T to R); {"$R_3$" at last line.c + vec_(0,0.15)}
  25.    arrow from T to 0.25<T,R>; "$y$" at last arrow.end +vec_(0,0.1)
  26.  
  27.    line from L to 0.2<L,T>
  28.    source(to 0.5<L`,'T>)
  29.     { "$+$" at last line.c + (vscal_(dimen_/3, Cos(75),Sin(75)))}
  30.     { "$-$" at last line.c + (vscal_(dimen_/3, Cos(225),Sin(225)))}
  31.     { "$u$" at last line.c + (vscal_(dimen_/3, Cos(150),Sin(150)))}
  32.    resistor(to 0.8<L`,'T>); {"$R_1$" at last line.c + vec_(0,0.15)}
  33.    line to T
  34. .PE
  35.